The AMEdmItemsUI object provides common implementations for commands issued by client application.
Supported Interfaces
IAMEdmItemsUIPersist interface
IAMEdmItemsUICommands interface
Remarks
The sample code below demonstrates how to use an AMEdmItemsUI object.
AMEdmItemsUI is a client-side object. Before it can be used, it must be initialized with a reference to the hosting client application.
Example
The InvokeEDMUICommand procedure can be used to invoke a built-in command on the EDMUI client library from a UIExtension command.
The command argument should be a value from the AMEDMITEMS_VERBS constants (for example, AMIV_CREATEDRAFT).
Note To find AMEDMITEMS_VERBS in the object browser, you need to select Show Hidden Members.
Public Sub InvokeEDMUICommand( _
dsg As IAMUIExtensionDesigner, _
ByVal CurrentObject As Object, _
ByVal command As AMEDMUI.AMEDMITEMS_VERBS, _
ByVal hwnd As Long)
On Error GoTo error_handler
' Create the AMEdmItemsUI instance
Dim ui As New AMEdmItemsUI
Dim menu As IAMEdmItemsUIMenu
Dim pers As IAMEdmItemsUIPersist
' Initialize the AMEdmItemsUI object
Set pers = ui
pers.Init CurrentObject, 0, dsg.GetHostService(SERVICE_PROVIDER)
' Invoke the command on the IAMEdmItemsUIMenu interface
Set menu = pers
menu.InvokeCommand hwnd, command
Set menu = Nothing
Set pers = Nothing
Set ui = Nothing
Exit Sub
error_handler:
MsgBox Err.Description
End Sub